Error: There is not enough memory to complete the operation (due to file size).
Error:
There is not enough memory to complete the operation.
Cause:
The number of revisions to an RTF document substantially outnumber the original size of the document.
Solution:
On the revisions menu choose to accept all revisions, or write a WordBasic macro to reduce the revision table in the document.
NOTE: This error is common to files saved or imported as RTF files.
Do one of the following:
1) Accept all revisions:
a) Select the 'Tools' menu and select 'Revisions...'.
b) Click 'Accept All'. (All the revisions are added and the revision table is removed from the document.)
2) Write a WordBasic macro to reduce the size of the revision table.
NOTE: This macro is NOT 100% guaranteed. On some systems it has been known to cause unrecoverable errors in the document.
a) Select the 'Tools' menu and select 'Options...'.
b) Click the 'General' tab.
c) Select the 'Confirm Conversions' check box.
d) Select the 'File' menu and select 'Open...'.
e) Select the problematic RTF file.
f) Click 'OK'. (The Convert File dialog box appears.)
g) Select 'Text Only' in the 'Convert File From' list box.
h) Select the 'Tools' menu and select 'Macro...'.
i) Create the following macro:
Sub MAIN
dothis = MsgBox(''This macro will delete the revision history table'' + '' from an RTF file. To do this you must first Open the RTF file'' + '' As Text. After the macro has run, just Save the file and Close.'' + '' Click OK to run the macro.'', '' Delete REVTBL '', 305)
If dothis + - 1 Then
StartOfDocument
EditFind .Find = ''{\*\revtbl'', .Direction = 0, .MatchCase = ),
.WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 0
If EditFindFound () = 0 Then
MsgBox ''No RevTbl Found''
Else
CharRight 1
EditFind .Find = ''}'', .Direction = 0, .Matchcase = 0, WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 0
CharRight 1
mystart = GetSelStartPos ()
CharLeft 1
EditFind .Find = ''}}'', .Direction = 0, .Matchcase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 0
CharLeft 1
CharRight 1
myend = Get SelEndPos ()
If myend - mystart < 100 Then
MsgBox ''RevTbl already trimmed''
Else
SetSelRange mystart, myend
EditClear
MsgBox ''RevTbl successfully trimmed''
Endif
Endif
Endif
Endsub
j) Save the macro.
k) Return to the document.
l) Select the 'File' menu and select 'Save As...'.
m) In the 'Files of Type' drop-down list box select 'Text Only'.
n) Click 'OK'.
o) Select the 'File' menu and select 'Open...'.
p) Select the RTF file.
q) Click 'OK'.
r) Select the 'File' menu and select 'Save As...'
s) In the 'Files of Type' drop-down list box, select 'Word Document'.
t) Click 'OK'.
